﻿Imports DAO
Imports DTO
Public Class QuiDinhBUS
    ''' <summary>
    ''' Số tiết gãy
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function TietGay() As Integer
        Dim DTO As New QuiDinhDTO
        Dim quidinh As New QuiDinhDAO
        DTO.Tietgay = quidinh.TietGay
        Return DTO.Tietgay
    End Function

    ''' <summary>
    ''' Số tiết tối đa được học trong ngày
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function TietToiDaDuocHoc() As Integer
        Dim quidinh As New QuiDinhDAO
        Dim DTO As New QuiDinhDTO
        DTO.Sotiettoidaduochoctrongngay = quidinh.TietToiDaDuocHoc
        Return DTO.Sotiettoidaduochoctrongngay
    End Function

    ''' <summary>
    ''' Số tiết tối đa trong ngày
    ''' </summary>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function TietToiDaTrongNgay() As Integer
        Dim quidinh As New QuiDinhDAO
        Dim DTO As New QuiDinhDTO
        DTO.Sotiettoidatrongngay = quidinh.TietToiDaTrongNgay
        Return DTO.Sotiettoidatrongngay
    End Function

    Public Sub CapNhat(ByVal QDDTO As QuiDinhDTO)
        Dim quidinhdao As New QuiDinhDAO
        quidinhdao.CapNhat(QDDTO)
    End Sub
End Class
